// .txt

beginzonescript;

variables;

short crime_tolerance = 5;
short last_abil;
short i;
short unbound_count = 0;

body;

beginstate INIT_STATE;

//	set_name(,"");

	add_range_to_group(13,17,1);
	set_aggression(1001,7);

	set_aggression(18,7);
	set_aggression(19,7);
	set_aggression(20,7);

	set_boss_level(21,1);
	set_aggression(21,7);

	add_range_to_group(23,28,2);
	add_range_to_group(29,34,3);
	add_range_to_group(35,40,4);
	if (gf(100,13) != 2) {
		erase_char(1002);
		erase_char(1003);
		erase_char(1004);
		}
		
	//if (get_sdf() > 0) {
		//make_zone_hostile();
		//}

	last_abil = get_current_tick();
	
	set_crime_tolerance(crime_tolerance);
	break;

beginstate EXIT_STATE;

break;

beginstate START_STATE;
	if (gf(13,7) == 1) {
		sf(13,7,2);
		inc_flag(25,2,1);
		}
		
	// clear zone?
	if ((zone_clear(ME) == FALSE) && (get_flag(13,10) > 0) && (get_flag(13,11) > 0) && (get_flag(13,12) > 0)) {
		print_str_color("You've managed to cross this area of the Mera Fen.",2);
		clear_zone(ME);	
		}
		
	//if ((get_crime_level() >= crime_tolerance) && (get_sdf(,) == 0)) {
	//	make_zone_hostile();
	//	set_flag(,,1);
	//	}

	// if (gf(,) == 0) {
	//	if (get_ran(1,0,100) < 10)
	//		give_char_text_bubble(,"");
	//	}
	
	if (tick_difference(last_abil,get_current_tick()) > 0) {
		last_abil = get_current_tick();
		
		if (unbound_count < 90) {
			if (is_group())
				unbound_count = unbound_count + 1;
				else unbound_count = unbound_count + 6;
			}

		if ((party_dist_to_nav(1) > 12) && (unbound_count < 100) && (unbound_count >= 50)) {
			
			unbound_count = 100;
			if (gf(13,7) == 0) {
				spawn_creature(14);
				set_aggression(22,8);
				place_particle_num(22,18,12,4);		
				place_particle_num(22,19,12,4);		
				place_particle_num(22,20,12,4);		
				print_str_color("You sense a hostile presence. Something has entered the fen.",2);
				if (gf(13,4) == 0)
					begin_talk_mode(4);
				}
			}
		}
	if ((char_ok(22)) && (dist_to_nav_point(22,0) <= 4)) {
		erase_char(22);
		unbound_count = 0;
		print_str_color("You no longer sense the hostile presence.",2);
		}
break;

beginstate 10;
	sf(13,10,1);
break;

beginstate 11;
	sf(13,11,1);
break;

beginstate 12;
	sf(13,12,1);
break;

//	print_str("");
//	set_terrain_string_range(".",3);
//	set_terrain_string_range("The sign says - .",3);
